home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D11.D64 / m_c generator (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  31 lines
  1. 1000 PRINT "[147]  MACHINE CODE GENERATOR - WORKING.."
  2. 2000 FORL=0TO19:CX=0:FORD=0TO15:READA:CX=CX+A:POKE49152+L*16+D,A:NEXTD
  3. 2010 READA:IFA<>CXTHENPRINT"ERROR IN LINE";2040+(L*10):STOP
  4. 2020 NEXTL
  5. 2040 DATA172,167,2,169,204,133,254,169,0,133,251,133,253,169,4,133,2346
  6. 2050 DATA252,192,0,240,62,32,92,192,230,251,208,2,230,252,230,253,2718
  7. 2060 DATA208,2,230,254,165,251,201,231,208,231,165,252,201,7,208,225,3039
  8. 2070 DATA192,0,208,7,173,134,2,141,171,2,96,173,171,2,141,134,1747
  9. 2080 DATA2,160,0,153,0,216,153,255,216,153,254,217,153,233,218,200,2583
  10. 2090 DATA208,241,96,162,0,161,251,129,253,76,24,192,162,0,161,253,2369
  11. 2100 DATA129,251,96,160,0,140,172,2,173,167,2,72,165,251,72,165,2017
  12. 2110 DATA252,72,172,168,2,162,0,169,160,129,251,173,169,2,129,253,2263
  13. 2120 DATA136,240,13,230,251,230,253,208,236,230,252,230,254,76,117,192,3148
  14. 2130 DATA206,167,2,240,19,165,251,24,109,170,2,144,4,230,252,230,2215
  15. 2140 DATA254,133,251,133,253,76,114,192,238,172,2,173,172,2,201,2,2368
  16. 2150 DATA240,43,238,169,2,104,133,252,104,133,251,133,253,104,141,167,2467
  17. 2160 DATA2,165,252,24,105,212,133,254,173,167,2,56,233,2,72,165,2017
  18. 2170 DATA251,72,165,252,72,165,251,24,105,41,76,155,192,104,133,252,2310
  19. 2180 DATA104,133,251,104,141,167,2,173,168,2,56,233,2,141,168,2,1847
  20. 2190 DATA165,251,24,105,82,144,2,230,252,133,251,96,172,168,2,162,2239
  21. 2200 DATA0,161,253,24,105,128,129,251,136,240,15,230,251,208,2,230,2363
  22. 2210 DATA252,230,253,208,2,230,254,76,255,192,206,167,2,240,21,165,2753
  23. 2220 DATA251,24,109,170,2,144,2,230,252,133,251,230,253,208,2,230,2491
  24. 2230 DATA254,76,252,192,96,0,0,0,44,83,0,83,0,83,0,83,1246
  25. 3000 REM ** READY TO SAVE **
  26. 3010 PRINT "    ANY KEY TO SAVE"
  27. 3020 GETK$:IFK$=""THEN3020
  28. 3030 POKE 43,0:POKE44,192:POKE45,57:POKE46,193
  29. 3070 SAVE "BPOP",8
  30. 3080 REM CHANGE ,8 TO ,1 FOR TAPE USE
  31.